function y = q(p,lambda,gamma,beta)
% Incumbents' R&D cost function

% Variables:
% p         number of product lines
% lambda	R&D intensity
% gamma		R&D cost parameter
% beta		R&D cost parameter

	y = beta * (p .* (lambda./p).^gamma);

end
